#!/usr/bin/perl

open FILE, "songlist";

while (<FILE>) {
    chomp;
    $url = "http://allmusic.com/song/$_";
    system("wget $url -O all_music_song_pages/$_");
}
